module mcnp_params

  implicit none

  ! Kind parameters:
  integer,parameter :: i4knd = selected_int_kind( 9)        != 4-byte integer kind
  integer,parameter :: i8knd = selected_int_kind(18)        != 8-byte integer kind
  integer,parameter :: rknd  = selected_real_kind( 6, 37)   != real kind
  integer,parameter :: dknd  = selected_real_kind(15,307)   != 8-byte real kind

end module mcnp_params


